home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / demos / c64demo.dir / 00021_Play.ls < prev    next >
Encoding:
Text File  |  1995-12-07  |  661 b   |  35 lines
  1. global gNext
  2.  
  3. on mouseDown
  4.   puppetSound("PlayB")
  5.   puppetSprite(14, 1)
  6.   set the castNum of sprite 14 to 42
  7.   updateStage()
  8.   startTimer()
  9.   repeat while the timer < 15
  10.     nothing()
  11.   end repeat
  12.   set the castNum of sprite 14 to 43
  13.   updateStage()
  14.   startTimer()
  15.   repeat while the timer < 15
  16.     nothing()
  17.   end repeat
  18.   set the castNum of sprite 14 to 42
  19.   updateStage()
  20.   startTimer()
  21.   repeat while the timer < 15
  22.     nothing()
  23.   end repeat
  24.   set the castNum of sprite 14 to 43
  25.   updateStage()
  26.   puppetSprite(14, 0)
  27.   startTimer()
  28.   repeat while the timer < 30
  29.     nothing()
  30.   end repeat
  31.   puppetSound(0)
  32.   set gNext to "play fade"
  33.   go("start demo")
  34. end
  35.